home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
pie_lo11.zip
/
LASTONES.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-21
|
14KB
|
907 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
String STRING069
String STRING070
String STRING071
String STRING072
String STRING073
String STRING074
String STRING075
String STRING076
String STRING077
String STRING078
String STRING079
String STRING080
String STRING081
String STRING082
String STRING083
String STRING084
String STRING085
String STRING086
String STRING087
String STRING088
String STRING089
String STRING090
String STRING091
String STRING092
String STRING093
String STRING094
String STRING095
String STRING096
String STRING097
String STRING098
String STRING099
String STRING100
String STRING101
String STRING102
String STRING103
String STRING104
String STRING105
String STRING106
String STRING107
String STRING108
String STRING109
String STRING110
String STRING111
String STRING112
String STRING113
String STRING114
String STRING115
String STRING116
String STRING117
String STRING118
String STRING119
String STRING120
String STRING121
String STRING122
String STRING123
String STRING124
String STRING125
String STRING126
String STRING127
String STRING128
String STRING129
String STRING130
String STRING131
String STRING132
String STRING133
String STRING134
String STRING135
String STRING136
String STRING137
;------------------------------------------------------------------------------
GetUser
STRING132 = U_Ful()
STRING133 = U_Fdl()
STRING134 = U_MsgRd()
STRING135 = U_MsgWr()
STRING136 = U_Stat(3)
STRING137 = U_Stat(2)
If (Exist(PPEPath() + "LASTONES.CFG")) Then
FOpen 1, PPEPath() + "LASTONES.CFG", 2, 3
FGet 1, STRING121
FGet 1, STRING122
FGet 1, STRING123
FGet 1, STRING124
FGet 1, STRING125
FGet 1, STRING126
FGet 1, STRING127
FGet 1, STRING128
FGet 1, STRING129
FGet 1, STRING130
FGet 1, STRING131
FClose 1
If (Exist(PPEPath() + "LASTONES.DAT")) Then
FOpen 1, PPEPath() + "LASTONES.DAT", 2, 3
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FGet 1, STRING012
FGet 1, STRING013
FGet 1, STRING014
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING017
FGet 1, STRING018
FGet 1, STRING019
FGet 1, STRING020
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING023
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING031
FGet 1, STRING032
FGet 1, STRING033
FGet 1, STRING034
FGet 1, STRING035
FGet 1, STRING036
FGet 1, STRING037
FGet 1, STRING038
FGet 1, STRING039
FGet 1, STRING040
FGet 1, STRING041
FGet 1, STRING042
FGet 1, STRING043
FGet 1, STRING044
FGet 1, STRING045
FGet 1, STRING046
FGet 1, STRING047
FGet 1, STRING048
FGet 1, STRING049
FGet 1, STRING050
FClose 1
If (Exist(PPEPath() + "ACTIONS.DAT")) Then
FOpen 1, PPEPath() + "ACTIONS.DAT", 2, 3
FGet 1, STRING058
FGet 1, STRING059
FGet 1, STRING060
FGet 1, STRING061
FGet 1, STRING062
FGet 1, STRING063
FGet 1, STRING064
FGet 1, STRING065
FGet 1, STRING066
FGet 1, STRING067
FGet 1, STRING068
FGet 1, STRING069
FGet 1, STRING070
FGet 1, STRING071
FGet 1, STRING072
FGet 1, STRING073
FGet 1, STRING074
FGet 1, STRING075
FGet 1, STRING076
FGet 1, STRING077
FGet 1, STRING078
FGet 1, STRING079
FGet 1, STRING080
FGet 1, STRING081
FGet 1, STRING082
FGet 1, STRING083
FGet 1, STRING084
FGet 1, STRING085
FGet 1, STRING086
FGet 1, STRING087
FGet 1, STRING088
FGet 1, STRING089
FGet 1, STRING090
FGet 1, STRING091
FGet 1, STRING092
FGet 1, STRING093
FGet 1, STRING094
FGet 1, STRING095
FGet 1, STRING096
FGet 1, STRING097
FGet 1, STRING098
FGet 1, STRING099
FGet 1, STRING100
FGet 1, STRING101
FGet 1, STRING102
FGet 1, STRING103
FGet 1, STRING104
FGet 1, STRING105
FGet 1, STRING106
FGet 1, STRING107
FGet 1, STRING108
FGet 1, STRING109
FGet 1, STRING110
FGet 1, STRING111
FGet 1, STRING112
FGet 1, STRING113
FGet 1, STRING114
FGet 1, STRING115
FGet 1, STRING116
FGet 1, STRING117
FGet 1, STRING118
FGet 1, STRING119
FGet 1, STRING120
FClose 1
FOpen 1, PPEPath() + "ACTION.DAT", 2, 3
FGet 1, STRING051
FGet 1, STRING052
FGet 1, STRING053
FGet 1, STRING054
FGet 1, STRING055
FGet 1, STRING056
FGet 1, STRING057
FClose 1
FOpen 1, PPEPath() + "LASTONE.DAT", 2, 3
FGet 1, STRING001
FGet 1, STRING002
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FClose 1
FCreate 1, PPEPath() + "TEMP." + PcbNode(), 1, 0
FPutLn 1, STRING132
FPutLn 1, STRING133
FPutLn 1, STRING134
FPutLn 1, STRING135
FPutLn 1, STRING136
FPutLn 1, STRING137
FClose 1
If (STRING122 == "YES") Then
DispFile PPEPath() + "LASTONES.PCB", 1
Endif
AnsiPos 13, 10
Print STRING124 + STRING001
AnsiPos 26, 10
Print STRING125 + STRING002
AnsiPos 63, 10
Print STRING126 + STRING003
AnsiPos 7, 10
Print STRING128 + STRING130 + STRING004
AnsiPos 68, 10
Print STRING127 + STRING005
AnsiPos 46, 10
Print STRING123 + STRING051 + " " + STRING052 + " " + STRING053 + " " + STRING054 + " " + STRING055 + " " + STRING056 + " " + STRING057
AnsiPos 13, 11
Print STRING124 + STRING006
AnsiPos 26, 11
Print STRING125 + STRING007
AnsiPos 63, 11
Print STRING126 + STRING008
AnsiPos 7, 11
Print STRING128 + STRING130 + STRING009
AnsiPos 68, 11
Print STRING127 + STRING010
AnsiPos 46, 11
Print STRING123 + STRING058 + " " + STRING059 + " " + STRING060 + " " + STRING061 + " " + STRING062 + " " + STRING063 + " " + STRING064
AnsiPos 13, 12
Print STRING124 + STRING011
AnsiPos 26, 12
Print STRING125 + STRING012
AnsiPos 63, 12
Print STRING126 + STRING013
AnsiPos 7, 12
Print STRING128 + STRING130 + STRING014
AnsiPos 68, 12
Print STRING127 + STRING015
AnsiPos 46, 12
Print STRING123 + STRING065 + " " + STRING066 + " " + STRING067 + " " + STRING068 + " " + STRING069 + " " + STRING070 + " " + STRING071
AnsiPos 13, 13
Print STRING124 + STRING016
AnsiPos 26, 13
Print STRING125 + STRING017
AnsiPos 63, 13
Print STRING126 + STRING018
AnsiPos 7, 13
Print STRING128 + STRING130 + STRING019
AnsiPos 68, 13
Print STRING127 + STRING020
AnsiPos 46, 13
Print STRING123 + STRING072 + " " + STRING073 + " " + STRING074 + " " + STRING075 + " " + STRING076 + " " + STRING077 + " " + STRING078
AnsiPos 13, 14
Print STRING124 + STRING021
AnsiPos 26, 14
Print STRING125 + STRING022
AnsiPos 63, 14
Print STRING126 + STRING023
AnsiPos 7, 14
Print STRING128 + STRING130 + STRING024
AnsiPos 68, 14
Print STRING127 + STRING025
AnsiPos 46, 14
Print STRING123 + STRING079 + " " + STRING080 + " " + STRING081 + " " + STRING082 + " " + STRING083 + " " + STRING084 + " " + STRING085
AnsiPos 13, 15
Print STRING124 + STRING026
AnsiPos 26, 15
Print STRING125 + STRING027
AnsiPos 63, 15
Print STRING126 + STRING028
AnsiPos 7, 15
Print STRING128 + STRING130 + STRING029
AnsiPos 68, 15
Print STRING127 + STRING030
AnsiPos 46, 15
Print STRING123 + STRING086 + " " + STRING087 + " " + STRING088 + " " + STRING089 + " " + STRING090 + " " + STRING091 + " " + STRING092
AnsiPos 13, 16
Print STRING124 + STRING031
AnsiPos 26, 16
Print STRING125 + STRING032
AnsiPos 63, 16
Print STRING126 + STRING033
AnsiPos 7, 16
Print STRING128 + STRING130 + STRING034
AnsiPos 68, 16
Print STRING127 + STRING035
AnsiPos 46, 16
Print STRING123 + STRING093 + " " + STRING094 + " " + STRING095 + " " + STRING096 + " " + STRING097 + " " + STRING098 + " " + STRING099
AnsiPos 13, 17
Print STRING124 + STRING036
AnsiPos 26, 17
Print STRING125 + STRING037
AnsiPos 63, 17
Print STRING126 + STRING038
AnsiPos 7, 17
Print STRING128 + STRING130 + STRING039
AnsiPos 68, 17
Print STRING127 + STRING040
AnsiPos 46, 17
Print STRING123 + STRING100 + " " + STRING101 + " " + STRING102 + " " + STRING103 + " " + STRING104 + " " + STRING105 + " " + STRING106
AnsiPos 13, 18
Print STRING124 + STRING041
AnsiPos 26, 18
Print STRING125 + STRING042
AnsiPos 63, 18
Print STRING126 + STRING043
AnsiPos 7, 18
Print STRING128 + STRING130 + STRING044
AnsiPos 68, 18
Print STRING127 + STRING045
AnsiPos 46, 18
Print STRING123 + STRING107 + " " + STRING108 + " " + STRING109 + " " + STRING110 + " " + STRING111 + " " + STRING112 + " " + STRING113
AnsiPos 13, 19
Print STRING124 + STRING046
AnsiPos 26, 19
Print STRING125 + STRING047
AnsiPos 63, 19
Print STRING126 + STRING048
AnsiPos 7, 19
Print STRING128 + STRING130 + STRING049
AnsiPos 68, 19
Print STRING127 + STRING050
AnsiPos 46, 19
Print STRING123 + STRING114 + " " + STRING115 + " " + STRING116 + " " + STRING117 + " " + STRING118 + " " + STRING119 + " " + STRING120
Delete PPEPath() + "LASTONES.DAT"
FCreate 1, PPEPath() + "LASTONES.DAT", 1, 0
FPutLn 1, STRING001
FPutLn 1, STRING002
FPutLn 1, STRING003
FPutLn 1, STRING004
FPutLn 1, STRING005
FPutLn 1, STRING006
FPutLn 1, STRING007
FPutLn 1, STRING008
FPutLn 1, STRING009
FPutLn 1, STRING010
FPutLn 1, STRING011
FPutLn 1, STRING012
FPutLn 1, STRING013
FPutLn 1, STRING014
FPutLn 1, STRING015
FPutLn 1, STRING016
FPutLn 1, STRING017
FPutLn 1, STRING018
FPutLn 1, STRING019
FPutLn 1, STRING020
FPutLn 1, STRING021
FPutLn 1, STRING022
FPutLn 1, STRING023
FPutLn 1, STRING024
FPutLn 1, STRING025
FPutLn 1, STRING026
FPutLn 1, STRING027
FPutLn 1, STRING028
FPutLn 1, STRING029
FPutLn 1, STRING030
FPutLn 1, STRING031
FPutLn 1, STRING032
FPutLn 1, STRING033
FPutLn 1, STRING034
FPutLn 1, STRING035
FPutLn 1, STRING036
FPutLn 1, STRING037
FPutLn 1, STRING038
FPutLn 1, STRING039
FPutLn 1, STRING040
FPutLn 1, STRING041
FPutLn 1, STRING042
FPutLn 1, STRING043
FPutLn 1, STRING044
FPutLn 1, STRING045
FPutLn 1, STRING046
FPutLn 1, STRING047
FPutLn 1, STRING048
FPutLn 1, STRING049
FPutLn 1, STRING050
FClose 1
Delete PPEPath() + "ACTIONS.DAT"
FCreate 1, PPEPath() + "ACTIONS.DAT", 1, 0
FPutLn 1, STRING051
FPutLn 1, STRING052
FPutLn 1, STRING053
FPutLn 1, STRING054
FPutLn 1, STRING055
FPutLn 1, STRING056
FPutLn 1, STRING057
FPutLn 1, STRING058
FPutLn 1, STRING059
FPutLn 1, STRING060
FPutLn 1, STRING061
FPutLn 1, STRING062
FPutLn 1, STRING063
FPutLn 1, STRING064
FPutLn 1, STRING065
FPutLn 1, STRING066
FPutLn 1, STRING067
FPutLn 1, STRING068
FPutLn 1, STRING069
FPutLn 1, STRING070
FPutLn 1, STRING071
FPutLn 1, STRING072
FPutLn 1, STRING073
FPutLn 1, STRING074
FPutLn 1, STRING075
FPutLn 1, STRING076
FPutLn 1, STRING077
FPutLn 1, STRING078
FPutLn 1, STRING079
FPutLn 1, STRING080
FPutLn 1, STRING081
FPutLn 1, STRING082
FPutLn 1, STRING083
FPutLn 1, STRING084
FPutLn 1, STRING085
FPutLn 1, STRING086
FPutLn 1, STRING087
FPutLn 1, STRING088
FPutLn 1, STRING089
FPutLn 1, STRING090
FPutLn 1, STRING091
FPutLn 1, STRING092
FPutLn 1, STRING093
FPutLn 1, STRING094
FPutLn 1, STRING095
FPutLn 1, STRING096
FPutLn 1, STRING097
FPutLn 1, STRING098
FPutLn 1, STRING099
FPutLn 1, STRING100
FPutLn 1, STRING101
FPutLn 1, STRING102
FPutLn 1, STRING103
FPutLn 1, STRING104
FPutLn 1, STRING105
FPutLn 1, STRING106
FPutLn 1, STRING107
FPutLn 1, STRING108
FPutLn 1, STRING109
FPutLn 1, STRING110
FPutLn 1, STRING111
FPutLn 1, STRING112
FPutLn 1, STRING113
FPutLn 1, STRING114
FPutLn 1, STRING115
FPutLn 1, STRING116
FPutLn 1, STRING117
FPutLn 1, STRING118
FPutLn 1, STRING119
FPutLn 1, STRING120
FClose 1
:LABEL001
AnsiPos 3, 22
Print " "
Delay 1
AnsiPos 33, 22
Print "@X08LastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X03LastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X07LastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X0BLastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X0FLastDudes 1.o1"
Delay 25
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X0BLastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X07LastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X03LastDudes 1.o1"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 33, 22
Print "@X08LastDudes 1.o1"
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
AnsiPos 3, 22
Print " "
AnsiPos 21, 22
Print "@X08Code"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X03Code@X08 by"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X07Code @X03by @X08Cuminous"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X0FCode @X07by @X03Cuminous @X08of"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X07Code @X0Fby @X07Cuminous @X03of @X08Providence"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X03Code @X07by @X0FCuminous @X07of @X03Providence @X081996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code @X03by @X07Cuminous @X0Fof @X07Providence @X031996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code by @X03Cuminous @X07of @X0FProvidence @X071996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code by Cuminous @X03of @X07Providence @X0F1996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code by Cuminous of @X03Providence @X071996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code by Cuminous of Providence @X031996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 21, 22
Print "@X08Code by Cuminous of Providence 1996"
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
AnsiPos 3, 22
Print " "
AnsiPos 22, 22
Print "@X08Ansi"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X03Ansi@X08 by"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X07Ansi @X03by @X08Scoundrel"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X0FAnsi @X07by @X03Scoundrel @X08of"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X07Ansi @X0Fby @X07Scoundrel @X03of @X08Providence"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X03Ansi @X07by @X0FScoundrel @X07of @X03Providence @X081996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi @X03by @X07Scoundrel @X0Fof @X07Providence @X031996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi by @X03Scoundrel @X07of @X0FProvidence @X071996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi by Scoundrel @X03of @X07Providence @X0F1996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi by Scoundrel of @X03Providence @X071996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi by Scoundrel of Providence @X031996"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 22, 22
Print "@X08Ansi by Scoundrel of Providence 1996"
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
AnsiPos 3, 22
Print " "
AnsiPos 17, 22
Print "@X08PROViDENCE -"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X03PROViDENCE - @X08'Its"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X07PROViDENCE - @X03'Its @X08Quality,"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X0FPROViDENCE - @X07'Its @X03Quality, @X08Not"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X07PROViDENCE - @X0F'Its @X07Quality, @X03Not @X08Quantity"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X03PROViDENCE - @X07'Its @X0FQuality, @X07Not @X03Quantity @X08As"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - @X03'Its @X07Quality, @X0FNot @X07Quantity @X03As @X08Counts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its @X03Quality, @X07Not @X0FQuantity @X07As @X03Counts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its Quality, @X03Not @X07Quantity @X0FAs @X07Counts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its Quality, Not @X03Quantity @X07As @X0FCounts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its Quality, Not Quantity @X03As @X07Counts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its Quality, Not Quantity As @X03Counts'"
Delay 1
If (Inkey() <> Chr(13)) Then
AnsiPos 17, 22
Print "@X08PROViDENCE - 'Its Quality, Not Quantity As Counts'"
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Delay 25
If (Inkey() <> Chr(13)) Then
Goto LABEL001
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
Endif
End
Endif
Endif
Endif
Print "A SERIOUS ERROR FOUND! PLEASE MSG SYSOP AND TELL HIM TO REINSTALL THIS PPE!"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 64 Goto
; 6 Let
; 111 Print
; 62 If
; 1 DispFile
; 3 FCreate
; 5 FOpen
; 8 FClose
; 131 FGet
; 126 FPutLn
; 1 GetUser
; 2 Delete
; 59 Delay
; 110 AnsiPos
;
;
; ■ Functions used :
;
; 205 +
; 1 ==
; 58 <>
; 62 !
; 58 Chr()
; 1 U_Ful()
; 1 U_Fdl()
; 58 Inkey()
; 14 PPEPath()
; 1 U_MsgRd()
; 1 U_MsgWr()
; 1 PcbNode()
; 3 Exist()
; 2 U_Stat()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 62 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------